home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / FINDLIM.BAS next >
BASIC Source File  |  1985-11-14  |  793b  |  17 lines
  1.  
  2. LISTING 1 - How BASIC locates the LIM within PCIRES
  3.  
  4. 10 REM Interpretive BASIC Sample program
  5. 20 REM 1753180 3270PC High Level Language Application Program Interface
  6. 30 REM (C) Copyright IBM Corporation 1984
  7. 40 REM ******* INITIALIZATION CODE ************************
  8. 50 DEF SEG = 0                                  'LOOK AT LOW MEMORY
  9. 60 INTR = &H45                                  'INTERRUPT 45 FINDS LIM
  10. 70 SEGM = 256*PEEK(INTR*4+3) + PEEK(INTR*4+2)   'GET SEGMENT POINTER
  11. 80 BLIM = 256*PEEK(INTR*4+1) + PEEK(INTR*4)     'GET PGM OFFSET POINTER
  12. 90 IF SEGM < > 0 THEN 110
  13. 100 PRINT "BASIC LANGUAGE INTERFACE IS NOT INSTALLED": END
  14. 110 DEF SEG = SEGM                              'SET THE SEG FOR BASIC LIM
  15. 120 REM *********** END OF MANDATORY INITIALIZATION ************
  16.  
  17.